Aminet 1 (Walnut Creek)/Aminet - June 1993 [Walnut Creek].iso/aminet/mus/play/multiplsr.lha/prefswinspec.gui

Text File | 1992-09-14 | 4KB | 179 lines

/*
 * MultiPlayer
 * Copyright (C) 1992 Bryan Ford
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * I (the author of MultiPlayer) can be contacted on the Internet at
 * "[e-mail]".  See "Player.doc" for other addresses.
 *
 * $Id: prefswinspec.gui,v 5.1 92/09/14 18:38:39 BAF Exp $
 *
 */

window xdef _prefswinspec
    screen import _playerscreen
    title "MultiPlayer Preferences"
    screentitle _copyright
    left import _prefswinleft top import _prefswintop
    CYCLEIDCMP BUTTONIDCMP checkboxidcmp CLOSEWINDOW MOUSEBUTTONS REFRESHWINDOW
    DRAGBAR DEPTHGADGET CLOSEGADGET SIMPLE_REFRESH RMBTRAP rawkey
  end

button
    call _gui_prefswinmainfont
    label "Main font"
  end

text
    export _prefswinmainfontgad
    border minchars 30
  end

number
    export _prefswinmainfontsizegad
    border minchars 4 endrow
  end

button
    call _gui_prefswinlistfont
    label "List font"
    attr _listattr
  end

text
    export _prefswinlistfontgad
    border minchars 30
    attr _listattr
  end

number
    export _prefswinlistfontsizegad
    border minchars 4 endrow
    attr _listattr
  end

cycle
    export _prefswinplaygad
    call _gui_prefswinplay
    label "Play" labelleft
    options array "In Sequence" "In Random Order" "Once" "Over and Over" "Through sequence once" null end
  end

cycle
    export _prefswinshowgad
    call _gui_prefswinshow
    label "Show" labelleft
    options array "Nothing" "Clock" "Sequence (from 0)" "Sequence (from 1)" null end
    endrow
  end

string
    export _prefswinhotkeygad
    call _gui_prefswinhotkey
    label "Hot key"
    labelleft
    minchars 30 maxchars 30
    disabled
    endrow
  end

checkbox
    export _prefswinspectrumgad
    call _gui_prefswinspectrogram
    label "Spectrogram" labelright
  end

checkbox
    export _prefswinnotegad
    call _gui_prefswinnote
    label "Note Scroller" labelright
    endrow
  end

checkbox
    export _prefswinscopegad
    call _gui_prefswinscope
    label "StereoScope" labelright
  end

checkbox
    export _prefswinqscopegad
    call _gui_prefswinqscope
    label "QuadraScope" labelright
    endrow
  end

checkbox
    export _prefswinpausefadegad
    call _gui_prefswinpausefade
    label "Fade on Stop/Continue" labelright
  end

checkbox
    export _prefswincontgad
    call _gui_prefswincont
    label "Continue program on error" labelright endrow
  end

checkbox
    export _prefswinkeepgad
    call _gui_prefswinkeep
    label "Save program with prefs" labelright
  end

checkbox
    export _prefswinnastygad
    call _gui_prefswinnasty
    label "Nasty audio" labelright endrow
  end

checkbox
    export _prefswinicongad
    call _gui_prefswinicon
    label "Icon for immediate playing" labelright
  end

checkbox
    export _prefswiniconagad
    call _gui_prefswinicona
    label "Icon for adding to program" labelright endrow
  end

button
    call _gui_prefswinsave
    label "Save"
  end

button
    call _gui_prefswinok
    label "Close"
  end

endcap

fontrequester xdef _prefswinfontspec
    window struct 0
    title struct 4
    fixedwidth struct 8
    font struct 12 size struct 16
    donectrlf
    left import fontreqleft
    top import fontreqtop
    width import fontreqwidth
    height import fontreqheight
  end